home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / bslmrgs1.zip / RSB3DESC.MRG < prev   
Text File  |  1992-07-03  |  1KB  |  29 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB3.BAS to produce RSB3DESC.BAS
  3. * RBBSSUB3.BAS:  Date 5-11-1992  Size 145491 bytes
  4. * ------------[ Created 05-12-1992 18:42:10 ]------------
  5. * REPLACING old line(s) by new
  6. 20710 CALL QuickTPut1 ("Describe " + ZFileNameHold$ + _
  7.            " (Begin with '/' if for SysOp only)")                    
  8. * ------[ first line different ]------
  9.       IF ZUserSecLevel >= ZAskExtendedDesc AND _                     ' BSLDESC1
  10.       ZMaxExtendedLines > 0 THEN _                                   ' BSLDESC1
  11.       CALL QuickTPut1 ("You will have" + STR$(ZMaxExtendedLines) + _ ' BSLDESC1
  12.         " additional line(s) of 73 characters for the description.") _' BSLDESC1
  13.       ELSE GOTO 20711                                                ' BSLDESC1
  14. * INSERTING new line(s)
  15. 20711 CALL QuickTPut1 (LEFT$(" |----+--Min<..-+---2+0---+---3+0---+---4+0---+-", _   ' BSLDESC1
  16.                  ZMaxDescLen - 4) + "..Max>")
  17.       CALL QuickTPut ("? ",0)
  18.       ZOutTxt$ = ""
  19.       ZSubParm = 1
  20.       ZParseOff = ZTrue
  21.       CALL TGet
  22.       CALL Carrier
  23.       IF ZSubParm = -1 THEN _
  24.          ZUserIn$ = "<description unavailable>": _
  25.          GOTO 20712
  26.       IF LEN(ZUserIn$) > ZMaxDescLen OR LEN(ZUserIn$) < 10 THEN _
  27.          CALL QuickTPut1 ("10 chars min," + STR$(ZMaxDescLen) + " max") : _
  28.          GOTO 20710
  29.